100 FOR A=1 TO 10
110 PL$(A)="MUELLER"+STR$(A)
120 PU(A)=100*A
130 NEXT A
140 GOSUB 16000
150 END
1650 OPEN 1,8,15
16000 REM HIGSCORELISTE SCHREIBEN
16050 OPEN 1,8,15
16060 OPEN 2,8,2,"HIGHSCORE,S,W"
16070 INPUYT#1,F,F$,T,S
16080 IF F<>0 THEN 16140
16090 X=0
16100 FOR IN = 1 TO 10
16110 IF PU(IN+X) < PN THEN PRINT#2,NA$:PRINT#2,PN:X=1
16120 IF PU(IN+X) >PN THEN PRIN#2,PL$(IN+X):PRINT#2,PU(IN+X)
16130 NEXT IN
16140 CLOSE2
16150 CLOSE1